The CICA Windows Explosion!/The CICA Windows Explosion! - Disc 2.iso/programr/dpmigcc5.zip/RSX/SOURCE/SYSDEP.C

C/C++ Source or Header | 1994-12-12 | 5KB | 214 lines

/*****************************************************************************
 * FILE: sysdep.c                                 *
 *                                         *
 * DESC:                                     *
 *    - system functions for 16bit compilers                     *
 *                                         *
 * Copyright (C) 1993,1994                             *
 *    Rainer Schnitker, Heeper Str. 283, 33607 Bielefeld             *
 *    email: [e-mail]                 *
 *                                         *
 *****************************************************************************/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "DPMI.H"
#include "RMLIB.H"
#include "PROCESS.H"
#include "LOADPRG.H"
#include "RSX.H"
#include "FPU.H"
#include "COPY32.H"
#include "SYSDEP.H"

DWORD copro_struct;        /* address of soft-387 struct */
UINT emu_sel = 0;        /* emu data-sel */
DWORD emu_esp;            /* emu esp entry */
POINTER16_32 emu_entry;     /* entry address emu (for init) */

static char cline[260];
static char *argvec[50];

void save_emu_state(NEWPROCESS * proc)
{
    cpy32_16(emu_sel, copro_struct, &(proc->npx), sizeof(union i387_union));
}

void load_emu_state(NEWPROCESS * proc)
{
    cpy16_32(emu_sel, copro_struct, &(proc->npx), sizeof(union i387_union));
}

/* load emu & init */
static int init_emu387(char *filename)
{
    if (load_protected_program(filename, npz))
    return -1;

    puts("load rsx387");

    /* init some emu vars for long-jmp, emu data selector access */
    emu_sel = npz->data32sel;
    emu_esp = npz->stackp32;
    emu_entry.off = npz->entry;
    emu_entry.sel = npz->code32sel;

    LockLinRegion(npz->memaddress, npz->membytes);

    /* emu_init call emulator to install exception handler */
    copro_struct = emu_init();
    /* return the 387-register struct, need for switching prgs */

    return 0;
}

int install_rsx387()
{
    static char rsx387_default[] = "\\RSX\\FPU-EMU\\RSX387";
    char *emu_name;

    emu_name = getenv("RSX387");
    if (emu_name == NULL) {
    if (rm_access(rsx387_default, 0)) {
        puts("Can't find RSX387");
        return -1;
    } else
        emu_name = rsx387_default;
    }
    if (init_emu387(emu_name) == -1) {
    printf("Can't load emu: %s\n", emu_name);
    return -1;
    }
    return 0;
}

/* convert PSP to command line */
void get_emxl_psp(unsigned emxl_psp)
{
    int z, env_seg;
    char far *cmdl;

    /* get envoronment segment from PSP */
    env_seg = *(int far *) ((DWORD) emxl_psp << 16 | 0x2c);

    /* build far pointer to environment */
    cmdl = (char far *) ((DWORD) env_seg << 16);

    /* skip env-strings ; last has two 0-bytes */
    for (; cmdl++;)
    if (*cmdl == '\0' && *(cmdl + 1) == '\0')
        break;

    cmdl += 4;
    /* copy arg0 */
    for (z = 0; *cmdl != '\0'; cmdl++, z++)
    cline[z] = *cmdl;
    cline[z++] = ' ';

    /* build cmdline far pointer from PSP */
    cmdl = (char far *) ((DWORD) emxl_psp << 16 | 0x81);

    /* copy arg1,arg2,... */
    for ( ; z < sizeof(cline) ; z++) {
    cline[z] = *cmdl;
    if (cline[z] == 13)
        break;
    cmdl++;
    }
    cline[z] = '\0';
}

/* make command string to argv */
void build_emx_args(int *argn, char ***argvp)
{
    int argc, src, dst, bs, quote;
    char *q;

    argc = 0;
    dst = src = 0;
    while (cline[src] == ' ' || cline[src] == '\t' || cline[src] == '\n')
    ++src;
    do {
    if (cline[src] == 0)
        q = NULL;
    else {
        q = cline + dst;
        bs = 0;
        quote = 0;
        for (;;) {
        if (cline[src] == '"') {
            while (bs >= 2) {
            cline[dst++] = '\\';
            bs -= 2;
            }
            if (bs & 1)
            cline[dst++] = '"';
            else
            quote = !quote;
            bs = 0;
        } else if (cline[src] == '\\')
            ++bs;
        else {
            while (bs != 0) {
            cline[dst++] = '\\';
            --bs;
            }
            if (cline[src] == 0 ||
            ((cline[src] == ' ' || cline[src] == '\t') && !quote))
            break;
            cline[dst++] = cline[src];
        }
        ++src;
        }
        while (cline[src] == ' ' || cline[src] == '\t'
           || cline[src] == '\n')
        ++src;
        cline[dst++] = 0;
    }
    argvec[argc++] = q;
    } while (q != NULL);

    *argvp = (char **) &(argvec[0]);
    *argn = argc - 1;
}

#define MK_LP(seg,o) (void far *) (DWORD) ((((DWORD)(seg)) << 16) | (WORD)(o))

void build_dj_args(int *argc, char ***argv)
{
    int narg, i;
    char **args = *argv;
    int segm, off;
    int far *old_argv;
    char far *old_argi;

    sscanf(args[2], "%x", &narg);
    sscanf(args[3], "%x", &segm);
    sscanf(args[4], "%x", &off);
    old_argv = (int far *) MK_LP(segm, off);
    argvec[0] = cline;
    for (i = 0; i < narg; i++) {
    old_argi = (char far *) MK_LP(segm, (old_argv[i]));
    _fstrcpy((char far *) (argvec[i]), old_argi);
    argvec[i + 1] = argvec[i] + (strlen(argvec[i]) + 1);
    }
    argvec[narg] = 0;

    *argv = (char **) &(argvec[0]);
    *argc = narg;
}

void set_stdout(void)
{
    setbuf(stdout,NULL);
    setbuf(stderr,NULL);
}

void flush_all_buffers(void)
{
    fflush(stdin);
    fflush(stdout);
    fflush(stderr);
}